home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / B_E_M / BEISPIEL / AKTION.DAT next >
Encoding:
INI File  |  1997-09-29  |  5.0 KB  |  234 lines
  1. [_Programmstart]
  2. ;    WINDOW INFO CLOSE
  3.     PROTOKOLL LÖSCHEN
  4.     PROTOKOLL EIN FEHLER
  5.     CLEAR MODEM2:
  6.     SS MODEM2: EIN 115200
  7.     SS MIDI: EIN
  8. ;    CLEAR AUX
  9. ;    SS AUX: EIN 19200
  10. ;    EXEC f:\b_e_m\log_buch\log_show.app s
  11.     DIM erg$(50), datei$ (120)
  12. ;    if (exist "f:\bavaria\eventman.dat\*.pro")
  13. ;        path d:\everest
  14. ;        exec d:\everest\everest.prg f:\bavaria\eventman.dat\*.pro
  15. ;    endif
  16.  
  17. [Gebühren]
  18.     SEND MODEM2: "ATCH?"
  19.     
  20. [Faxempfang]
  21.     SEND MODEM2: "ATS0=2"
  22.     SEND MODEM2: "AT+FCLASS=Z"
  23.     SEND MODEM2: "AT+FZF=3"
  24.      
  25. [zeigelog]
  26.     PATH f:\b_e_m\log_buch
  27.     EXEC f:\b_e_m\log_buch\log_show.app q
  28.  
  29. [logbook]
  30.     EXEC f:\b_e_m\log_buch\log_show.app t
  31.  
  32. [Überwachung aus]
  33.     SS MODEM2: AUS
  34.     SS MIDI: AUS
  35.     disable 1
  36.     enable 5
  37.  
  38. [Überwachung ein]
  39.     SS MODEM2: EIN
  40.     SS MIDI: EIN
  41.     disable 5
  42.     enable 1
  43.  
  44. [_Programmende]
  45.     PROTOKOLL AUS
  46. ;    EXEC D:\EVEREST\EVEREST.PRG F:\BAVARIA\EVENTMAN.DAT\FEHLER.PRO f:\bavaria\eventman.dat\timer.evt
  47.     QUIT
  48.  
  49. [Ring_midi]
  50.     SEND MIDI: "ATA"
  51.     SS MIDI: AUS
  52.     PATH "F:\BAVARIA\SYSTEM"
  53.     RUN "F:\BAVARIA\LOGIN.PRG" "MIDI:"
  54.     CLEAR MIDI:
  55.     SS MIDI: EIN
  56.  
  57. [Ring_aux]
  58.     PROTOKOLL SCHREIBE "Auf Schnittstelle AUX: hat es geklingelt!!"
  59.     info "Es hat geklingelt| |Da will wohl jemand was von Dir"
  60. [Ring_modem1]
  61.     PROTOKOLL SCHREIBE "Auf Schnittstelle MODEM1: hat es geklingelt!!"
  62.     info "Es hat geklingelt| |Da will wohl jemand was von Dir"
  63. [Ring_modem2]
  64.     PROTOKOLL SCHREIBE "Auf Schnittstelle MODEM2: hat es geklingelt!!"
  65.     info "Es hat geklingelt| |Da will wohl jemand was von Dir"
  66. [Ring_serial1]
  67.     PROTOKOLL SCHREIBE "Auf Schnittstelle SERIAL1: hat es geklingelt!!"
  68.     info "Es hat geklingelt| |Da will wohl jemand was von Dir"
  69. [Ring_serial2]
  70.     PROTOKOLL SCHREIBE "Auf Schnittstelle SERIAL2: hat es geklingelt!!"
  71.     info "Es hat geklingelt| |Da will wohl jemand was von Dir"
  72.  
  73. [Dfü-Start]
  74.     MIDI-COM -1 "INFO \"DFÜ-Programm gestartet!\""
  75.     SS MODEM2: AUS
  76.  
  77. [Dfü-Ende]
  78.     SS MODEM2: EIN
  79.     MIDI-COM -1 "INFO \"Es läuft kein DFÜ-Programm mehr!\""
  80.  
  81. [CatPutz]
  82.     disable 3
  83.     wait no-aktion
  84.     wait no-aktiv "cat"
  85.     skip CatPutz 2t
  86.     RUN F:\CAT\CATPUTZ.PRG CAT.INF -a -gPersönliche -q
  87.     RUN F:\CAT\CATPUTZ.PRG CAT_TUMA.INF -a -gPersönliche -q
  88.     RUN F:\CAT\CATPUTZ.PRG CAT_ASH.INF -a -gPersönliche -q
  89.     RUN F:\CAT\CATPUTZ.PRG CAT_LL.INF -a -gPersönliche -q
  90.     INFO "Alle 4 Boxen wurden nun geputzt!"
  91.     enable 3
  92.  
  93. [POLL-A]
  94.     disable 15
  95.     wait no-aktion
  96.     skip POLL-A 12h
  97.     PATH F:\CAT
  98.     RUN F:\CAT\CAT.PRG CAT.INF -iq
  99.     SS MODEM2: AUS
  100.     PATH F:\CONNECT
  101.     RUN F:\CONNECT\CONNECT.PRG F:\CONNECT\SCRIPTS\A-MAUS.SCR
  102.     SS MODEM2: EIN
  103.     IF (EXIST "F:\IMPORT\OUTFILE.TXT")
  104.         PATH F:\CAT
  105.         RUN F:\CAT\CAT.PRG CAT.INF -oq
  106.         AV-SENDKEY EVENTMAN "a"
  107.     ENDIF
  108.     enable 15
  109.  
  110. [POLL-LL]
  111.     disable 14
  112.     wait no-aktion
  113.     skip POLL-LL 1t
  114.     PATH F:\CATRON15
  115.     RUN F:\CATRON15\CATRONDO.PRG -q
  116.     wait no-aktiv "catputz"
  117.     PATH F:\CAT
  118.     RUN F:\CAT\CAT.PRG CAT_LL.INF -iq
  119.     SS MODEM2: AUS
  120.     PATH F:\CONNECT
  121.     RUN F:\CONNECT\CONNECT.PRG F:\CONNECT\SCRIPTS\LL-MAUS.SCR
  122.     SS MODEM2: EIN
  123.     IF (EXIST "F:\IMPORT\OUTFILE.TXT")
  124.         PATH F:\CAT
  125.         RUN F:\CAT\CAT.PRG CAT_LL.INF -oq
  126.         AV-SENDKEY EVENTMAN "l"
  127.     ENDIF
  128.     enable 14
  129.  
  130. [POLL-TUMA]
  131.     disable 16
  132.     wait no-aktion
  133.     wait no-aktiv "catputz"
  134.     skip POLL-TUMA 2t
  135.     PATH F:\CAT
  136.     RUN F:\CAT\CAT.PRG CAT_TUMA.INF -iq
  137.     SS MODEM2: AUS
  138.     PATH F:\CONNECT
  139.     RUN F:\CONNECT\CONNECT.PRG F:\CONNECT\SCRIPTS\TUMA.SCR
  140.     SS MODEM2: EIN
  141.     IF (EXIST "F:\IMPORT\OUTFILE.TXT")
  142.         PATH F:\CAT
  143.         RUN F:\CAT\CAT.PRG CAT_TUMA.INF -oq
  144.         AV-SENDKEY EVENTMAN "t"
  145.     ENDIF
  146.     enable 16
  147.  
  148. [POLL-ASH]
  149.     disable 13
  150.     wait no-aktion
  151.     wait no-aktiv "catputz"
  152.     skip POLL-ASH 3t
  153.     PATH F:\CAT
  154.     RUN F:\CAT\CAT.PRG CAT_ASH.INF -iq
  155.     SS MODEM2: AUS
  156.     PATH F:\CONNECT
  157.     RUN F:\CONNECT\CONNECT.PRG F:\CONNECT\SCRIPTS\ASH-MAUS.SCR
  158.     SS MODEM2: EIN
  159.     IF (EXIST "F:\IMPORT\OUTFILE.LZH")
  160.         PATH F:\CAT
  161.         RUN F:\CAT\CAT.PRG CAT_ASH.INF -oq
  162.         AV-SENDKEY EVENTMAN "s"
  163.     ENDIF
  164.     enable 13
  165.  
  166. [POLL-UPOINT]
  167.     disable 8
  168.     SS MODEM2: AUS
  169.     wait no-aktion
  170.     skip POLL-UPOINT 12h
  171.     PATH F:\UPOINT_L
  172.     erg$ = RUN F:\UPOINT_L\UPOINT.PRG -poll
  173.     info "Upoint Ergebnis: ";erg$
  174.     SS MODEM2: EIN
  175.     enable 8
  176.  
  177. [UPOINT]
  178.     disable 4
  179.     wait no-aktion
  180.     PATH F:\UPOINT_L
  181.     RUN F:\UPOINT_L\UPOINT.PRG
  182.     enable 4
  183. [CAT-A]
  184.     disable 11
  185.     wait no-aktion
  186.     PATH F:\CATALG
  187.     RUN F:\CATALG\CATALOG.APP F:\cat\cat.prg  cat.inf
  188.     enable 11
  189.  
  190. [CAT-ASH]
  191.     disable 9
  192.     wait no-aktion
  193.     PATH F:\CATALG
  194.     RUN F:\CATALG\CATALOG.APP F:\cat\cat.prg  cat_ash.inf
  195.     enable 9
  196.  
  197. [CAT-LL]
  198.     disable 10
  199.     wait no-aktion
  200.     PATH F:\CATALG
  201.     RUN F:\CATALG\CATALOG.APP F:\cat\cat.prg  cat_ll.inf
  202.     enable 10
  203.  
  204. [CAT-TUMA]
  205.     disable 12
  206.     wait no-aktion
  207.     PATH F:\CATALG
  208.     RUN F:\CATALG\CATALOG.APP F:\cat\cat.prg  cat_tuma.inf
  209.     enable 12
  210.  
  211. [midi-test]
  212.     MIDI-COM -1 "INFO \"Es läuft kein DFÜ-Programm mehr!\""
  213.     MIDI-COM -1 "GOTO Test"
  214.     
  215.     
  216. [12345678901234567890123]
  217.     
  218.     SS PRN: EIN
  219.     SEND PRN: "Test" 
  220.     SS PRN: AUS
  221.     
  222. [open-s]
  223.     window status open
  224. [open-k]
  225.     window kalendar open
  226. [open-i]
  227.     window info open
  228. [open-m]
  229.     window maus open
  230. [close-top]
  231.     window top close
  232. [Micha]
  233.     info "Die Michaela hat am 11.3. Geburtstag!|Unbedingt Geschenk kaufen!"
  234.